home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_5581.txt < prev    next >
Text File  |  1989-01-07  |  1KB  |  62 lines
  1. -- card: 5581 from stack: in
  2. -- bmap block id: 5653
  3. -- flags: 0000
  4. -- background id: 5133
  5. -- name: cursor
  6. ----- HyperTalk script -----
  7. on idle
  8.   --This script uses the poke XCMD. You should not use this
  9.   --XCMD unless you are certain of what you are doing, and then
  10.   --you should still think twice about it.
  11.  
  12.   put the mouseloc into temp
  13.   put item 1 of temp into hor
  14.   put item 2 of temp into vert
  15.   -- the reflecting field
  16.   if (hor>150) and (hor<357) and (vert>94) and (vert<205) then
  17.     poke "82A","0060"
  18.     poke "8CE","FF"
  19.   end if
  20.   --Cursor wrap
  21.   if hor>508 then poke "82A","0008"
  22.  
  23.   if hor < 3 then poke "82A","01F0"
  24.  
  25.   if vert>340 then poke "828","0008"
  26.  
  27.   if vert<3 then poke "828","150"
  28.  
  29. end idle
  30.  
  31.  
  32.  
  33.  
  34.  
  35. -- part 1 (button)
  36. -- low flags: 00
  37. -- high flags: A000
  38. -- rect: left=29 top=231 right=275 bottom=77
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 30557 / 30557
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Options
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   visual effect iris close slowly
  50.   go card "options"
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part contents for background part 1
  56. ----- text -----
  57.  
  58.  
  59.  
  60.  
  61.  
  62.